io Programmo 72/IOPROG_72.ISO/soft/c++/NCTDiscWriter2.exe/{app}/MS VB 6.0 Samples/TestVBAudioCDWriter/frmWrite.frm

Visual Basic Form | 2003-04-10 | 13.5 KB | 408 lines

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmWrite
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Write"
   ClientHeight    =   3135
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8055
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3135
   ScaleWidth      =   8055
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame2
      Caption         =   "Write Speed"
      Height          =   1035
      Left            =   2160
      TabIndex        =   18
      Top             =   60
      Width           =   3945
      Begin MSComctlLib.ProgressBar ProgressBar3
         Height          =   135
         Left            =   120
         TabIndex        =   23
         Top             =   810
         Width           =   3705
         _ExtentX        =   6535
         _ExtentY        =   238
         _Version        =   393216
         Appearance      =   1
         Min             =   1
         Max             =   64
      End
      Begin VB.ComboBox speedCombo
         Height          =   315
         Left            =   2940
         Style           =   2  'Dropdown List
         TabIndex        =   20
         ToolTipText     =   "Burn Speed"
         Top             =   240
         Width           =   885
      End
      Begin VB.CheckBox OptimalSpeedCheck
         Caption         =   "Optimal Speed"
         Height          =   255
         Left            =   1830
         TabIndex        =   19
         Top             =   270
         Value           =   1  'Checked
         Width           =   255
      End
      Begin VB.Label Label5
         Caption         =   "Detect Optimal Speed:"
         Height          =   225
         Left            =   120
         TabIndex        =   22
         Top             =   360
         Width           =   1635
      End
      Begin VB.Label Label1
         Caption         =   "Speed:"
         Height          =   225
         Left            =   2370
         TabIndex        =   21
         Top             =   360
         Width           =   525
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Write Options"
      Height          =   1065
      Left            =   30
      TabIndex        =   15
      Top             =   60
      Width           =   2085
      Begin VB.CheckBox FinilizeCDCheck
         Caption         =   "Finalise Disc"
         Height          =   225
         Left            =   150
         TabIndex        =   17
         Top             =   660
         Width           =   1245
      End
      Begin VB.CheckBox TestWriteCheck
         Caption         =   "Only Test Write"
         Height          =   255
         Left            =   150
         TabIndex        =   16
         Top             =   330
         Width           =   1515
      End
   End
   Begin VB.CommandButton CancelBtn
      Caption         =   "Cancel"
      Height          =   405
      Left            =   6420
      TabIndex        =   14
      Top             =   540
      Width           =   1575
   End
   Begin VB.CommandButton WriteBtn
      Caption         =   "Write"
      Height          =   375
      Left            =   6420
      TabIndex        =   13
      Top             =   90
      Width           =   1575
   End
   Begin VB.Frame frmProgress
      Caption         =   "Progress"
      Height          =   1965
      Left            =   30
      TabIndex        =   0
      Top             =   1140
      Width           =   7995
      Begin MSComctlLib.ProgressBar ProgressBar1
         Height          =   315
         Left            =   1590
         TabIndex        =   1
         Top             =   1500
         Width           =   6345
         _ExtentX        =   11192
         _ExtentY        =   556
         _Version        =   393216
         Appearance      =   1
      End
      Begin MSComctlLib.ProgressBar ProgressBar2
         Height          =   315
         Left            =   1590
         TabIndex        =   2
         Top             =   1110
         Width           =   6345
         _ExtentX        =   11192
         _ExtentY        =   556
         _Version        =   393216
         Appearance      =   1
      End
      Begin VB.Label Label4
         Caption         =   "Disk Total:"
         Height          =   225
         Left            =   120
         TabIndex        =   12
         Top             =   1590
         Width           =   1065
      End
      Begin VB.Label ProgressLbl
         Caption         =   "Write Tracks:"
         Height          =   225
         Left            =   120
         TabIndex        =   11
         Top             =   1200
         Width           =   1005
      End
      Begin VB.Label driveStatusLbl
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Idle"
         Height          =   315
         Left            =   1590
         TabIndex        =   10
         Top             =   240
         Width           =   1875
      End
      Begin VB.Label Label33
         Caption         =   "Drive Status:"
         Height          =   225
         Left            =   120
         TabIndex        =   9
         Top             =   330
         Width           =   1035
      End
      Begin VB.Label driveBufferLbl
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0"
         Height          =   315
         Left            =   1590
         TabIndex        =   8
         Top             =   600
         Width           =   1875
      End
      Begin VB.Label Label31
         Caption         =   "Buffer (%):"
         Height          =   225
         Left            =   120
         TabIndex        =   7
         Top             =   690
         Width           =   945
      End
      Begin VB.Label Label27
         Caption         =   "Estimated Blocks:"
         Height          =   225
         Left            =   4590
         TabIndex        =   6
         Top             =   330
         Width           =   1305
      End
      Begin VB.Label driveEstBlocksLbl
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0"
         Height          =   315
         Left            =   6000
         TabIndex        =   5
         Top             =   240
         Width           =   1875
      End
      Begin VB.Label Label29
         Caption         =   "Current Block:"
         Height          =   225
         Left            =   4590
         TabIndex        =   4
         Top             =   690
         Width           =   1305
      End
      Begin VB.Label driveWriteBlocksLbl
         Alignment       =   1  'Right Justify
         BorderStyle     =   1  'Fixed Single
         Caption         =   "0"
         Height          =   315
         Left            =   6000
         TabIndex        =   3
         Top             =   600
         Width           =   1875
      End
   End
Attribute VB_Name = "frmWrite"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WriteInProgress As Boolean
Dim writeSpeed As Integer
Dim speed As Integer
Private Sub CancelBtn_Click()
    If WriteInProgress = True Then
        frmTestVBAudioCDWriter.AudioCDWriter1.StopWrite
        driveStatusLbl.Caption = "Idle"
        StopWrite
    Else
        Me.Hide
    End If
End Sub
Private Sub WriteBtn_Click()
    Dim idx As Integer
    Inactive
    driveStatusLbl.Caption = "Prepare..."
    Me.Refresh

    WriteBtn.Enabled = False
    Me.Refresh

    If TestWriteCheck.Value = 0 Then
            frmTestVBAudioCDWriter.AudioCDWriter1.writeSimulate = False
    Else
            frmTestVBAudioCDWriter.AudioCDWriter1.writeSimulate = True
    End If
    If FinilizeCDCheck.Value = 0 Then
            frmTestVBAudioCDWriter.AudioCDWriter1.writeFinalizeCD = False
    Else
            frmTestVBAudioCDWriter.AudioCDWriter1.writeFinalizeCD = True
    End If

    frmTestVBAudioCDWriter.error = False
    Me.Refresh
    idx = speedCombo.ListIndex
    speed = speedCombo.List(idx)
    frmTestVBAudioCDWriter.AudioCDWriter1.writeSpeed = speed

    frmTestVBAudioCDWriter.OperationProgress = False
    frmTestVBAudioCDWriter.writeProgress = 0
    frmTestVBAudioCDWriter.AudioCDWriter1.StartWrite
    If frmTestVBAudioCDWriter.error = True Then
            driveStatusLbl.Caption = "Idle"
            StopWrite
            frmTestVBAudioCDWriter.error = False
    Else
            WriteInProgress = True
    End If
End Sub
Public Sub OperationProgress(Percent As Integer)
        If frmTestVBAudioCDWriter.error = True Or WriteInProgress = False Then
           driveStatusLbl.Caption = "Idle"
           StopWrite
           Exit Sub
        End If

        Select Case frmTestVBAudioCDWriter.AudioCDWriter1.driveOperation
        Case WRITE_DISC:
             Select Case frmTestVBAudioCDWriter.AudioCDWriter1.writePhase
             Case FILL_BUFFER:
                  driveStatusLbl.Caption = "Fill Buffer..."
             Case WRITE_TRACK:
                  driveStatusLbl.Caption = "Write Track..."
             Case CLOSE_TRACK:
                  driveStatusLbl.Caption = "Close Track..."
             End Select
             ProgressBar1.Value = Percent * 2 / 3
             ProgressBar2.Value = Percent
             driveEstBlocksLbl.Caption = frmTestVBAudioCDWriter.AudioCDWriter1.writeTotalBlocks
             driveWriteBlocksLbl.Caption = frmTestVBAudioCDWriter.AudioCDWriter1.writeCurrentBlock
             driveBufferLbl.Caption = frmTestVBAudioCDWriter.AudioCDWriter1.driveBufferUsagePercent
        Case FINALIZE_DISC:
             driveStatusLbl.Caption = "Finalise Disc..."
             ProgressLbl.Caption = "Finalise:"
             CancelBtn.Enabled = False
             ProgressBar1.Value = 100 * 2 / 3 + Percent / 3 - 5
             ProgressBar2.Value = Percent
             driveWriteBlocksLbl.Caption = frmTestVBAudioCDWriter.AudioCDWriter1.writeCurrentBlock
             If Percent = 100 Then
                ProgressBar2.Value = 100
                ProgressBar1.Value = 100
                driveStatusLbl.Caption = "Idle"
                MsgBox "Write Complete!"
                StopWrite
                Exit Sub
             End If
        End Select

        DoEvents
End Sub
Private Sub Form_Load()
    writeSpeed = frmTestVBAudioCDWriter.AudioCDWriter1.driveMaxWSpeed
    WriteInProgress = False
End Sub
Private Sub StopWrite()
   ProgressLbl.Caption = "Write Tracks:"
   driveEstBlocksLbl.Caption = 0
   driveWriteBlocksLbl.Caption = 0
   driveBufferLbl.Caption = 0
   ProgressBar1.Value = 0
   ProgressBar2.Value = 0
   frmTestVBAudioCDWriter.RefreshDiskInfo
   WriteInProgress = False
   WriteBtn.Enabled = True
   CancelBtn.Enabled = True
   frmTestVBAudioCDWriter.error = False
   Active
End Sub
Private Sub OptimalSpeedCheck_Click()
    LoadSpeedCombo2
End Sub
Public Sub LoadSpeedCombo1()
    frmSpeedProgress.Show 0, Me
    speedCombo.Clear
    If OptimalSpeedCheck.Value <> 0 Then
        For speed = 64 To 1 Step -1
            frmTestVBAudioCDWriter.AudioCDWriter1.writeSpeed = speed
            frmSpeedProgress.ProgressBar1.Value = 65 - speed
            If frmTestVBAudioCDWriter.AudioCDWriter1.writeSpeed = speed Then
                speedCombo.AddItem speed
            End If
        Next
    Else
        For speed = frmTestVBAudioCDWriter.AudioCDWriter1.driveMaxWSpeed To 1 Step -2
            speedCombo.AddItem speed
        Next
    End If
    If speedCombo.ListCount > 0 Then
        speedCombo.ListIndex = 0
    End If
    frmSpeedProgress.ProgressBar1.Value = 1
    frmSpeedProgress.Hide
End Sub
Public Sub LoadSpeedCombo2()
    speedCombo.Clear
    If OptimalSpeedCheck.Value <> 0 Then
        For speed = 64 To 1 Step -1
            frmTestVBAudioCDWriter.AudioCDWriter1.writeSpeed = speed
            ProgressBar3.Value = 65 - speed
            If frmTestVBAudioCDWriter.AudioCDWriter1.writeSpeed = speed Then
                speedCombo.AddItem speed
            End If
        Next
    Else
        For speed = frmTestVBAudioCDWriter.AudioCDWriter1.driveMaxWSpeed To 1 Step -2
            speedCombo.AddItem speed
        Next
    End If
    If speedCombo.ListCount > 0 Then
        speedCombo.ListIndex = 0
    End If
    ProgressBar3.Value = 1
End Sub
Private Sub speedCombo_Click()
    Dim idx As Integer
    idx = speedCombo.ListIndex
    speed = speedCombo.List(idx)
    frmTestVBAudioCDWriter.AudioCDWriter1.writeSpeed = speed
End Sub
Private Sub Inactive()
    speedCombo.Enabled = False
    OptimalSpeedCheck.Enabled = False
    WriteBtn.Enabled = False
    TestWriteCheck.Enabled = False
    FinilizeCDCheck.Enabled = False
End Sub
Private Sub Active()
    speedCombo.Enabled = True
    OptimalSpeedCheck.Enabled = True
    WriteBtn.Enabled = True
    TestWriteCheck.Enabled = True
    FinilizeCDCheck.Enabled = True
End Sub